#!/usr/bin/env tclsh8.5

load ./shl[info sharedlibextension]
set fp [open "init.c" r]
set retval [s2h [read $fp] "c"]
puts $retval
close $fp
